home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2002 May / CD Rom Data Mayıs 2002.iso / Freeware / Blitz Basic / data1.cab / Support / help / samples / shootemup / includes / points.h < prev    next >
Encoding:
Text File  |  2002-04-10  |  327 b   |  20 lines
  1. Function addpoints(amount)
  2.  
  3.     ply_points=ply_points+amount
  4.  
  5. End Function
  6.  
  7. Function drawpoints(x,y,value)
  8.     
  9. ;    SetBuffer ImageBuffer(hudbufferimg)
  10. ;    DrawImage hudimg,0,0 
  11.     
  12.     For f=1 To Len(value) 
  13.         vl=Mid$(value,f,1)
  14.         DrawImage fontnumbers,x+xpf,y,vl
  15.         xpf=xpf+8
  16.     Next 
  17.  
  18. ;    SetBuffer BackBuffer()
  19.  
  20. End Function